Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/AppleCD SC Training/Introduction/background_2772.txt

Text File | 1990-04-09 | 10KB | 414 lines

-- background: 2772 from stack: in
-- bmap block id: 8858
-- flags: 0000
-- background id: 0
-- name: MasterBackground
----- HyperTalk script -----





-- part 2 (button)
-- low flags: 80
-- high flags: C004
-- rect: left=59 top=0 right=17 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ruby
----- HyperTalk script -----
-- How the Ruby Palette works generally:

-- Clicking on the Ruby button

-- 1) will toggle the the Palette on or off.
-- 2) with the command key shows the bkgnd Mask.
-- 3) with the option key shows the Mask with it’s hilite on
-- 4) with the shift key hides the entire Ruby Palette. (To show the Ruby Palette again, type Ruby into the message box).

-- The bkgnd Mask allows artists to view only the card level art.
-- The Mask can be hidden in turn by command-clicking on it.
-- To reverse the hilite of the Mask from black to white or vice versa, just click on it with the option key.

--ENJOY!

on mouseUp
  if the optionKey is down then
    show bkgnd button "Mask"
    set the hilite of bkgnd button "Mask" to true
    exit mouseUp
  end if
  if the commandKey is down then
    show bkgnd button "Mask"
    exit mouseUp
  end if
  if the shiftKey is down then
    set lockScreen to true
    hide bkgnd btn "Ruby"
    hide bkgnd btn "CopyCard"
    hide bkgnd btn "PaintIt"
    hide bkgnd btn "StackInfo"
    hide bkgnd btn "RoundUp"
    hide bkgnd btn "ResCopy"
    hide bkgnd btn "Lasso"
    hide bkgnd btn "Helper"
    hide bkgnd btn "Padlock"
    hide bkgnd btn "Buttoneer"
    exit mouseUp
  end if
  set lockMessages to true
  set the hilite of bkgnd button "Ruby" to not the hilite of bkgnd button "Ruby"
  set lockscreen to true
  set the visible of bkgnd btn "CopyCard" to not the visible of bkgnd btn "CopyCard"
  set the visible of bkgnd btn "PaintIt" to not the visible of bkgnd btn "PaintIt"
  set the visible of bkgnd btn "StackInfo" to not the visible of bkgnd btn "StackInfo"
  set the visible of bkgnd btn "RoundUp" to not the visible of bkgnd btn "RoundUp"
  set the visible of bkgnd btn "ResCopy" to not the visible of bkgnd btn "ResCopy"
  set the visible of bkgnd btn "Lasso" to not the visible of bkgnd btn "Lasso"
  set the visible of bkgnd btn "Helper" to not the visible of bkgnd btn "Helper"
  set the visible of bkgnd btn "Padlock" to not the visible of bkgnd btn "Padlock"
  set the visible of bkgnd btn "Buttoneer" to not the visible of bkgnd btn "Buttoneer"
end mouseUp



-- part 3 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=59 top=15 right=68 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CopyCard
----- HyperTalk script -----
on mouseUp
  doMenu Copy Card
  if the commandkey is "down"
  then
  flash 1
  doMenu Paste Card
  visual dissolve to inverse
  exit mouseup
end if
end mouseUp




-- part 4 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=115 top=15 right=68 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 6886 / 6886
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PaintIt
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    choose select tool
    doMenu "Export Paint..."
    exit mouseUp
  end if
  choose select tool
  doMenu "Import Paint..."
end mouseUp





-- part 5 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=171 top=15 right=68 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: StackInfo
----- HyperTalk script -----
on mouseUp
  if the commandKey is down then
    doMenu Compact Stack
  else
    doMenu Stack Info...
  end if
end mouseUp






-- part 6 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=227 top=15 right=68 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 17837 / 17837
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RoundUp
----- HyperTalk script -----
-- The DA Artisto can be changed to any DA you have installed.
-- just type in the new name (exactly as it appears) instead of Artisto

on mouseUp
  show menuBar
  doMenu Artisto
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=283 top=15 right=68 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 21346 / 21346
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ResCopy
----- HyperTalk script -----
on mouseUp
  visual zoom open
  go this card
  ResCopy
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: 2004
-- rect: left=338 top=15 right=44 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 16965 / 16965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lasso
----- HyperTalk script -----
on mouseUp
  if the optionkey is "down" then
    domenu choose select tool
  else
    choose lasso tool
  end if
end mouseUp




-- part 10 (button)
-- low flags: 80
-- high flags: 2004
-- rect: left=338 top=42 right=68 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 7502 / 7502
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Padlock
----- HyperTalk script -----
on mouseUp
  get the icon of the target
  if it is "7502" then
    set icon of the target to "16098"
    repeat with i=1 to the number of fields
      set the locktext of field i to false
    end repeat
    repeat with i=1 to the number of card fields
      set the locktext of card field i to false
    end repeat

  else
    set the icon of the target to "7502"
    repeat with i=1 to the number of fields
      set the locktext of field i to true
    end repeat
    repeat with i=1 to the number of card fields
      set the locktext of card field i to true
    end repeat
  end if
end mouseUp


-- part 11 (button)
-- low flags: 80
-- high flags: 2004
-- rect: left=367 top=15 right=44 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttoneer
----- HyperTalk script -----
on mouseUp
  if the commandkey is "down" then
    go to card 1 of stack "Button Ideas"
    exit mouseUp
  end if
  if the optionKey is "down" then
    choose field tool
    exit mouseUp
  end if
  set icon of Bkgnd button "Buttoneer" to "hiliter"
  set icon of Bkgnd button "Buttoneer" to "Small Button"
  choose Button tool
end mouseUp





-- part 9 (button)
-- low flags: 80
-- high flags: 2004
-- rect: left=367 top=42 right=68 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Helper
----- HyperTalk script -----
-- Hi! This button serves as your on-line help for the Ruby Palette.
-- To see the script of any of the buttons, choose the Buttoneer tool, then click on the target button with the shift key held down.
-- Then you can read the script of the button to see what it does.

-- The script of this button for example, is:

on mouseUp
  edit Script of the target
end mouseUp

-- How the Ruby Palette works generally:

-- Clicking on the Ruby button

-- 1) will toggle the the Palette on or off.
-- 2) with the command key shows the bkgnd Mask.
-- 3) with the option key shows the Mask with it’s hilite on
-- 4) with the shift key hides the entire Ruby Palette. (To show the Ruby Palette again, type Ruby into the message box).

-- The bkgnd Mask allows artists to view only the card level art.
-- The Mask can be hidden in turn by command-clicking on it.
-- To reverse the hilite of the Mask from black to white or vice versa, just click on it with the option key


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=410 top=0 right=32 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 8525 / 8525
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mac 1
----- HyperTalk script -----
on mouseUp
  wait 2 seconds
  visual iris open
  go to card "Mac 2"
  wait 8 seconds
  visual wipe left
  go to card "press"
  wait 12 seconds
  visual wipe left
  go to card "vault 1"
  wait 5 ticks
  visual wipe left
  go to card "vault 2"
  wait 1 ticks
  visual iris open to black
  go to card "Vault 3"
  wait 10 ticks
  visual wipe right
  go to card "Vault 4"
  wait 13 seconds
  visual wipe left
  go to card "Introduction" of stack "Summary"

end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=0 right=30 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 31606 / 31606
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PreviousCard
----- HyperTalk script -----
on mouseUp
  go prev
end mouseUp



-- part 12 (button)
-- low flags: 80
-- high flags: 4001
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mask
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    set the hilite of the target to not the hilite of the target
    exit mouseUp
  end if
  if the commandKey is down then
    hide the target
  end if
end mouseUp